10 REM ****************
20 REM ** AMIGA SHOW **
30 REM **     BY     **
40 REM ** LEE BAMBER **
50 REM ****************
60 POKE147,0:SYS57812"AMIGA DATA",8,1:SYS62631
70 SYS57812"C.AM CHAR(HAND)",8,1:SYS62631
99 RP=0
100 REM HAND SCREEN
110 POKE53280,1:POKE53281,1:POKE53272,26:POKE53270,216:POKE53282,12:POKE53283,14
120 PRINT"[129]C[147]":POKE49152,25:POKE49153,40:POKE251,92:POKE252,193:POKE253,0
125 POKE254,4:SYS49200:FORT=0TO1000:NEXTT
130 POKE147,0:SYS57812"C.AM CHAR(MENU)",8,1:SYS62631
135 GOSUB140
139 GOTO 180
140 POKE53280,6:POKE53281,6:POKE53270,200:POKE53272,28:PRINT"C[147]"
150 POKE49152,25:POKE49153,40:POKE251,68:POKE252,197:POKE253,0:POKE254,4
155 SYS49200:FORT=1024TO1063:L=PEEK(T):IFL=31THENPOKET,53
160 NEXTT:IFRP=0THENFORT=0TO2000:NEXTT
170 POKE49152,10:POKE49153,26:POKE251,43:POKE252,201:POKE253,41:POKE254,4
175 SYS49200:FORT=0TO1000:NEXTT
179 RETURN
180 FORI=2TO4:FORT=1027TO1031:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
190 FORT=0TO500:NEXTT:POKE49152,10:POKE49153,12:POKE251,70:POKE252,201
195 POKE253,207:POKE254,4:SYS49200
200 FORT=0TO2000:NEXTT:PRINT"[147]":RP=1:GOSUB140
210 FORI=5TO7:FORT=1032TO1036:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
220 FORT=0TO500:NEXTT:POKE49152,8:POKE49153,16:POKE251,228:POKE252,202
230 POKE253,37:POKE254,5:SYS49200
250 FORI=9TO11:FORT=1046TO1050:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
260 FORT=0TO500:NEXTT:POKE49152,6:POKE49153,14:POKE251,247:POKE252,202
270 POKE253,250:POKE254,5:SYS49200
280 FORT=0TO2000:NEXTT:PRINT"[147]":GOSUB140
290 FORI=2TO4:FORT=1042TO1046:POKET+(55296-1024)+(I*40),0:NEXTT:NEXTI
300 FORT=0TO3000:NEXTT:PRINT"[147]":POKE53272,23:POKE53270,200
310 PRINT" [215]HAT YOU HAVE JUST SEEN WAS A SMALL"
320 PRINT" CLIP OF THE [193]MIGA STARTUP AND THE
330 [153]" ATNMIGA (null)ORKBENCH SCREEN. (null)HE (null)ORKBENCH
340 PRINT" IS A CLEVER UTILITY WHICH CAN TOTALLY
350 [153]" MANIPLUATE MOST DISK FILES. RIGHT$T ALSO
360 PRINT" CONTAINS ALOT OF SUB-PROGRAMS.
365 [153]" VAL.G LENALCUALTORS, LENLOCKS, VAL.T.C
370 PRINT" [201]F YOU WOULD LIKE TO SEE THE STARTUP
380 [153]" HAND AGAIN PRESS F1WAIT. RIGHT$F YOU WISH TO
390 PRINT" VIEW THE MAIN [215]ORKBENCH PRESS F3[146].
400 [153]" (null)R IF YOU WISH TO QUIT THIS DEMO,
410 PRINT"[160]PRESS F7[146].
420 [153]"   (null)HE ATNMIGA (null)HOW WAS CREATED BY (null)EE    ";
430 [153]"  PEEKAMBER FOR LENOMMODORE STR$ISK (null)SER 1990   ";
440 [161]A$:[139]A$[178]""[167][137]440
450 [139]A$[178]"INPUT"[167][137]100
455 [139]A$[178]"DIM"[167][137]130
460 [139]A$[178]"LET"[167][153]"LOAD    GOODBYE FOLKS!!!":[151]53280,14:[151]53272,21:[128]
470 [137]440
999 [129]T[178]0[164]500